home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d897.lha
/
EPP
/
PModules
/
cSkipToEDelim.e
< prev
next >
Wrap
Text File
|
1993-06-26
|
522b
|
20 lines
OPT TURBO
PROC cSkipToEDelim (pos : PTR TO CHAR)
DEF c
/* Finds the next E delimiter in a string and returns its position. */
WHILE (c := pos [])
IF (c > 122) THEN RETURN pos /* "z" */
IF (c < 95) /* "_" */
IF (c > 90) THEN RETURN pos /* "Z" */
IF (c < 65) /* "A" */
IF (c > 57) THEN RETURN pos /* "9" */
IF (c < 48) THEN RETURN pos /* "0" */
ENDIF
ENDIF
INC pos
ENDWHILE
ENDPROC pos
/* cSkipToEDelim */